home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / vbwarn.zip / GLOBALS.BAS < prev    next >
BASIC Source File  |  1995-12-11  |  619b  |  18 lines

  1. Option Explicit
  2. Global GlobalPersonID As Long
  3. Global Const EM_EDIT = 1
  4. Global Const EM_ADDNEW = 2
  5. Global Const MSGBOX_TYPE = 4 + 32
  6. Global Const MB_EXCL = 48
  7. Global Const YES = 6 'for msgbox return
  8. Global Const QPerson = "SELECT DISTINCTROW Person.* FROM Person "
  9. Global Const QOff = "SELECT DISTINCTROW Officer.* FROM Officer "
  10. Global Const QTikPerson = "SELECT DISTINCTROW Tik.*, Person.*, Officer.* FROM Officer INNER JOIN (Person INNER JOIN Tik ON Person.ID = Tik.PersonID) ON Officer.OffID = Tik.OfficerID "
  11. Global NL
  12. Global Db As Database
  13. Global OffTable As Dynaset
  14. Global PerTable As Dynaset
  15.  
  16.  
  17.  
  18.